home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 2 / AACD 2.iso / AACD / WebSites / MailingLists / AMOSLIST.0799 / 000030_nobody_Fri Jul 9 17:58:34 1999.msg < prev    next >
Internet Message Format  |  1999-08-02  |  4KB
  1. Received: from onelist.com (pop.onelist.com [209.207.164.225])
  2.     by osf1.gmu.edu (8.8.8/8.8.8) with SMTP id RAA12536
  3.     for <mcox4@osf1.gmu.edu>; Fri, 9 Jul 1999 17:58:34 -0400 (EDT)
  4. Received: (qmail 15615 invoked by alias); 9 Jul 1999 21:59:12 -0000
  5. Received: (qmail 15609 invoked from network); 9 Jul 1999 21:59:11 -0000
  6. Received: from unknown (HELO mailhost.utu.fi) (130.232.1.5) by pop.onelist.com with SMTP; 9 Jul 1999 21:59:11 -0000
  7. Received: from du-47.isdn.utu.fi ([130.232.199.47]:1031 "HELO samali" ident: "NO-IDENT-SERVICE") by mailhost.utu.fi with SMTP id <8632-948>; Sat, 10 Jul 1999 00:58:19 +0300
  8. Message-ID: <002901beca56$a4d56800$2fc7e882@samali>
  9. From: "Sasu Lintula" <samali@utu.fi>
  10. To: "Amos-list" <amos-list@onelist.com>
  11. Date:     Sat, 10 Jul 1999 01:00:18 +0300
  12. X-Priority: 3
  13. X-MSMail-Priority: Normal
  14. X-Mailer: Microsoft Outlook Express 4.72.3110.5
  15. X-MimeOLE: Produced By Microsoft MimeOLE V4.72.3110.3
  16. Mailing-List: list amos-list@onelist.com; contact amos-list-owner@onelist.com
  17. Delivered-To: mailing list amos-list@onelist.com
  18. Precedence: bulk
  19. List-Unsubscribe: <mailto:amos-list-unsubscribe@ONElist.com>
  20. Reply-to: amos-list@onelist.com
  21. Mime-Version: 1.0
  22. Subject: [amos-list] Was: Cool Effects
  23. Status: RO
  24. X-Status: 
  25.  
  26. From:    "Sasu Lintula" <samali@utu.fi>
  27.  
  28. Hi Leto,
  29. I did not find my routine for transparent explosion but instead of I wrote
  30. another code of using Set Bob -command.
  31. I know it's a bit crappy but hey, it's written in 15 minutes.
  32.  
  33. -----------------------------------------8<-----------
  34. Randomize Timer
  35. Screen Open 0,320,192,16,Lowres
  36.  
  37. Cls 0 : Flash Off : Curs Off
  38. '
  39. 'Little More Time for Big Bobs
  40. Screen Display 0,,80,,
  41. '
  42. 'Draw Bob
  43. For N=0 To 31
  44.    Ink N : Box N,N To 63-N,63-N
  45. Next N
  46. For N=1 To 4
  47.    Get Bob N,0,0 To 64,64
  48. Next N
  49. '
  50.  
  51. 'Bitplanes
  52. Set Bob 1,0,%1,
  53. Set Bob 2,0,%10,
  54. Set Bob 3,0,%100,
  55. Set Bob 4,0,%1000,
  56. '
  57.  
  58. 'How About Starting...
  59. Cls 0
  60. Palette
  61. $F00,$F20,$F40,$F60,$F80,$FA0,$FB0,$FC0,$FC0,$FB0,$FA0,$F80,$F60,$F40,$F20,$
  62. F00
  63. Shift Up 5,0,15,1
  64. N=0
  65. For X=0 To 300 Step 20: Ink N : Bar X,0 To X+20,192 : Inc N: Next X
  66. Dim BX(4),BY(4),DX(4),DY(4)
  67. Gosub SETUP
  68. '
  69. 'Main
  70. Do
  71.     A$=Inkey$
  72.     If A$=" " Then Gosub SETUP
  73.     For N=1 To 4
  74.         Add BX(N),DX(N) : Add BY(N),DY(N)
  75.             If BX(N)<0 or BX(N)>256 Then DX(N)=-DX(N)
  76.             If BY(N)<0 or BY(N)>128 Then DY(N)=-DY(N)
  77.         Bob N,BX(N),BY(N),N
  78.     Next N
  79.     Wait Vbl
  80. Loop
  81.  
  82. 'Just Change to New Directions If You Happen to Push Space
  83. SETUP:
  84. For N=1 To 4 : BX(N)=Rnd(320) : BY(N)=Rnd(192) : DX(N)=Rnd(2)-1 :
  85. DY(N)=Rnd(2)-1 : Next N
  86. Return
  87. -------------------------8<------------------------------------
  88.  
  89. Ok, here's a little explanation what Set Bobs 'bitplanes' -value does:
  90. It is possible to set this value from %1 to %111111 to define which
  91. bitplanes' bits blitter can change when drawing bobs.
  92. If you set 'bitplanes'-value to %1 you will see following results:
  93. 'bitplanes'    Background colour    =>    Result
  94.      %1                            %0(0)                     %1(1)
  95.                                        %1(1)                     %0(0)
  96.                                      %10(2)                  %11(3)
  97.                                      %11(3)                  %10(2)
  98.                                           etc.
  99. etc.
  100. You can see what the blitter does is a bit change operation to backgrounds
  101. 1st bitplane ('bitplanes'-value). The result is that colours 0 and 1 change
  102. places
  103. in background, same as 2 and 3 up to 14 and 15 (if you have a four bitplane
  104. screen). Ok?
  105.  
  106. If you set 'bitplanes'-value to %10 all effects will be on 2nd bitplane, so:
  107.     %0    will be     %10        0 => 2
  108.     %1        ""          %11        1 => 3
  109.   %10        ""            %0        2 => 0
  110.   %11        ""            %1        3 => 1, and so on...
  111.  
  112.  
  113. I can write for you a simpler version later in which you'd be able to see
  114. better all those colour mixs.
  115. But now I have to go to sleep...
  116.  
  117. [Sasu Lintula]
  118.  
  119.  
  120.  
  121. --------------------------- ONElist Sponsor ----------------------------
  122.  
  123. Congratulations KNICKS@ONElist.com. Our latest ONElist of the week.
  124. http://www.onelist.com
  125. How is ONElist changing YOUR life?  Visit our homepage and let us know!
  126.  
  127. ------------------------------------------------------------------------
  128. Official AMOS WWW: http://members.xoom.com/AmosFactory/front.html